Acceso a Base de datos SQL

[victoryiyo]

Yo crearia un datareader mejor que un data set.
conexion.Open()
Try
Dim frm As New Form3
frm.Hide()
Dim sql As String
sql = "Insert into contador(nombre, direccion, localidad) values(" & "'" & Me.txtnom.Text & "', '" & Me.txtdir.Text & "' ,'" & Me.txtloc.Text & "' )"
cmd = New SqlCommand(sql, conexion)
cmd.ExecuteReader()
conexion.Close()
frm.Show()
Me.Close()
Catch z As SqlException
Dim er As Integer
For er = 0 To z.Errors.Count - er
MessageBox.Show("Error nº" & er.ToString() & ControlChars.Cr _
& "Message: " & z.Errors(er).Message & ControlChars.Cr _
& "Source: " & z.Errors(er).Source & ControlChars.Cr _
& "SQL: " & z.Errors(er).State & ControlChars.Cr)
Next er
End Try
eso es lo que yo haría.
Un saludo