ذخیره اطلاعات دیتاگرید

connect.Open()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim strsql As String
strsql = "select name1,name2 from table1 "
da = New OleDbDataAdapter(strsql, connect)
da.Fill(dt)
DataGridView1.DataSource = dt
connect.Close()

DataGridView1.ReadOnly = False
DataGridView1.AllowUserToAddRows = True