WHats wrong in this?

you can use this:

Public Sub GetConnection()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security = SSPI; Persist Securty Info= True; Initial Catalog = DatabaseName; Data Source = DataserverName;"
Conn.Open
End Sub