Visual Basic - linea de coneccion a servidor SQL

gente, como es el procedimiento para conectarme a un servidor sql, yo tengo algo asi pero me da error, si alguien me puede ayudar agradecido!

Public Sub Conectar()
Dim BD As New Connection
Dim EMPRESA As New Recordset
EMPRESA.Open Provider =SQLOLEDB;User ID= administrador ; PWD= ;" & "Initial Calalog=empresa;Data Source=alejandro"

End Sub