'You Can Connect To Sql Server From VB by the following:

Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
mvarConnectionString = "User ID=sa;" & _
"Data Source=(LOCAL);" & _
"Initial Catalog=Student;"
With cnLegation
.CursorLocation = adUseClient
.Provider = "SQLOLEDB"
.ConnectionString = mvarConnectionString
.Open
End With

' Note :Initial Catalog is Database name
' Data Source is Server Name

' If this is your request Email me to tell you about calling SP
' Ezoarabi@hotmail.com