Hola tengo el sgt prob ejecuto este codigo y no funka ... sos
Private Sub btning_Click()
Dim cn As New Connection
Dim rs As New Recordset
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=centro;Data Source=sistemas"
cn.Open
sql = " "
cn.Execute (sql)
cn.Execute ("Procedure ing ('" + txtnom.Text + "')")
End Sub
Me pueden decir q esta pasando ¿?