请教向access插入数据问题

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bwl.accdb"
Dim myconn As New OleDbConnection(connectionString)
Private Sub oledbdap()
        '自定义数据集填充代码！
        strCom = " SELECT * FROM tt"
        Dim myCommand As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strCom, OleDbConnection1)
        myCommand.Fill(myDataSet, strCom)
    End Sub
Dim myDataSet As New DataSet   '自定数据集
    Dim strCom As String  
  Dim cmd As New OleDb.OleDbCommand   '自定义连接命名代码
    Dim strSql As String                '自定义连接命名数据库表
    Private Sub oledbcom()
        '自定义COM命名代码！
        Dim cmd As New OleDb.OleDbCommand
        strSql = "SELECT * FROM tt"
         = strSql
        cmd.Connection = Me.OleDbConnection1
    End Sub
 oledbdap()   '填充代码
myconn.Open()
dim row as datarow
row=myDataSet.tables(0),nowrow
row("字段")="相应数据库"
……
oledbdap.updata(mydataset,tt)
myconn.Close()