Try this
Private Sub page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New OleDbConnection("your connection string")
cn.Open()
cmd = New OleDbCommand("Select * from tablename", cn)
cmd.ExecuteNonQuery()
adp = New OleDbDataAdapter(cmd)
adp.Fill(ds, "tablename")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnins.Click
cmd = New OleDbCommand("insert into tablename values" & "(" & TextBox1.Text & "," & "'" & TextBox2.Text & "'" & "," & "'" & TextBox3.Text & "'" & "," & TextBox4.Text & "," & TextBox5.Text & ")", cn)
cmd.ExecuteNonQuery()
End Sub