ساده ترين راهش اينه كه به روش زير به ديتابيس وصل بشي
Imports System.Data.SqlClient

Dim con As New SqlConnection
Dim dta As SqlDataAdapter
Dim ds As DataSet

con.ConnectionString = ""
dta = New SqlDataAdapter("seltext", con)

Dim scb As New SqlCommandBuilder(dta)
dta.UpdateCommand = scb.GetUpdateCommand
dta.DeleteCommand = scb.GetDeleteCommand
dta.InsertCommand = scb.GetInsertCommand

ds = New DataSet
dta.Fill(ds, "x1")
bs.datasource=ds
bs.datamember="x1"
datagrid1.datasource=bs
و براي آپديت بانك از دستور زير استفاده كني

bs.end edit
dta.update(bs.datasource,bs.datamember)


راستي تو تيبل بانك يك فيلد primary key بايد داشته باشي