Hola, estoy haciendo una pequeña aplicación windows con una base de datos, pero estoy sufriendo con el connectionstring y las consultas a la BD (INSERT,UPDATE,DELETE,SELECT) si alguien puede prestarme su ayuda me sería de mucha ayuda....gracias!!!

Con esto te conectas a una Bd de Acces.

Imports System
Imports System.Data
Imports System.Data.OleDb


Public conexion As New OleDbConnection
Public Sub BD()
conexion.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\Documents and Settings\Administrador\Escritorio\Sistema\Copy.mdb ;"

conexion.Open()
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call BD()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim sel As String

sel = "Select * From [nombre de tabla] "
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)

'hata aqui ya tienes tu dataset cargado con los datos y para volcarlos en una grilla

grid.DataSource = dssss.Tables(0)

end sub
Espero esto te pueda servir de ayud.
Saludos.

__________________
La imaginacion es mas importante que el conocimiento...

Patricio Nerio

Gracias por la ayuda...!! ok ahi se conecta....pero cuando le mando el query INSERT INTO el grid se queda en blanco.... y al cerrar y abrir de nuevo el proyecto resulta que si agregó el registro....que podría hacer?????

ESTE ES MI CODIGO...

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Public conexion As New OleDbConnection
Public Sub BD()
conexion.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\Users\Omar Alviarez\Documents\db1.mdb"
conexion.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "Select * From Tabla1"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
conexion.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "INSERT INTO Tabla1 (cedula,nombre,apellido,direccion,edad) " & "values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Update(ds)
'hata aqui ya tienes tu dataset cargado con los datos y para volcarlos en una grilla
DataGrid1.DataSource = ds.Tables("Tabla1")
conexion.Close()
End Sub
End Class

Lo que haria yo, seria esto:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "Select * From Tabla1"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
conexion.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call BD()
Dim ds As New DataSet
Dim sel As String
sel = "INSERT INTO Tabla1 (cedula,nombre,apellido,direccion,edad) " & "values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim adapterrrs As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Update(ds)


ds.reset
sel = "Select * From Tabla1"
Dim adapterrrss As OleDbDataAdapter = New OleDbDataAdapter(sel, conexion)
adapterrrs.Fill(ds)

DataGrid1.DataSource = ds.Tables("Tabla1")
conexion.close

End Sub

No se si sea lo mas correcto pero creo que debe trabajar.
Saludos.

__________________
La imaginacion es mas importante que el conocimiento...

Patricio Nerio