RE:Ejecutar Store Procedures desde VB
Esto lo publique unas lineas abajo, espero le sirva:
Dim Res As ADODB.Recordset
Dim Conexion As String
Conexion = "Driver={SQL SERVER};Server=MyServer;Database=MyBase;UID=MyUsuario;pwd=MyPassword;"
Set Res = New ADODB.Recordset
Res.Open "exec insert_clientes ' " & var_nombre & "'" & _
& var_paterno & "'" & _
& var_materno & "'",
_
Conexion, adOpenForwardOnly, adLockReadOnly
'FlexDatos.Rows = FlexDatos.FixedRows
If (Res.EOF) = False Then
Text1.Text = Res(0) ' Aqui tengo el Identity
End If
Set Res = Nothing