DataBase Connectivity-VB + SQL

'First declare variables to hold details of your connection and recordset - which will hold any records returned
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Establish a connection to your DB - you can find the correct connection string at www.connectionstrings.com
cn.Open "Provider=MSDataShape;DRIVER={SQL SERVER};Server=yourserver;Database=yourdatabase;UI  D=youruser;PWD=yourpassword;"

'You can now query the database connection and store any records returned in your recordset
'Define string variable to hold SQL statement
Dim strSQL As String

'Construct SQL String
strSQL = "set dateformat dmy; select * from mytable order by myfield asc"

'Execute the SQL Statement
Set rs = cn.Execute(strSQL)

'You can now test to see if the sql statement returned rows, if it did you can loop through the recordset displaying the details
If rs.EOF <> True And rs.BOF <> True Then
    While Not rs.EOF
        
        'Print the contents of the first field of the current record
        Debug.Print rs.Fields(0)

	'Move to the next record
	rs.MoveNext
    Wend
Else
	MsgBox "No records returned"
End If

'Dont forget to close your recordset/connection
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Private Sub Form_Load()
Dim gcn As New ADODB.Connection, query As String
gcn.Open = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sonia"

Dim intRoll, intMarks As Integer
Dim strName As String

intRoll = 12
intMarks = 80
strName = "Sync_or_Swim" 

query = "Insert into stuinfo([roll], [name], [marks]) " & _
"values(" & intRoll & ", '" & strName & "', " & intMarks & ")"
gcn.Execute(query)

gcn.Close
Set gcn = Nothing

End Sub

Private Sub Form_Load()
Dim gcn As New ADODB.Connection
gcn.Open = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sonia"
Dim query As String

query = "Insert into stuinfo values([roll],[name],[marks]), &_"
values("& me.txtroll.Text &","& me.txtname.Text &","&me.txtmarks.Text &")
gcn.Execute (query)
MsgBox "Record Inserted"
gcn.Close
End Sub

Private Sub Form_Load()
Dim gcn As New ADODB.Connection, query As String
gcn.Open = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sonia"

query = "Insert into stuinfo ([roll],[name],[marks]) " & _
"values("& me.txtroll.Text & ", " & me.txtname.Text & ", " & me.txtmarks.Text & " )"

gcn.Execute (query)
MsgBox "Record Inserted"
gcn.Close
End Sub