فکر کنم این کد بدردت بخوره کافیه کپی کنی و استفاده کنی فقط باید دیتابیس و جدول و فیلید رو عوض کن Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim con, con2 As OleDbConnection
Dim da, da2 As OleDbDataAdapter
Dim ds, ds2 As New DataSet
Dim s1, s2, s3, s4, s5 As String
Dim newrow, row1, row2 As DataRow
Dim cb As OleDbCommandBuilder
Dim adr1, adr2, ograt As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
‘در این قسمت شما به دیتابیس متصل می شوید اسم دیتابیس gldb.mdb
ds.Clear()
s1 = "provider=microsoft.jet.oledb.4.0;data source =" + Application.StartupPath + "\gldb.mdb; jet oledb:database password=;"
con = New OleDbConnection(s1)
con.Open()
s2 = "select * from regist"
da = New OleDbDataAdapter(s2, con)
da.Fill(ds, "regist")
newrow = ds.Tables("regist").NewRow