Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myconn As New OleDbConnection _
          ("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & Server.MapPath("\a.mdb"))
        myconn.Open()
        Dim mycommand As New OleDbCommand _
         ("INSERT INTO MemTable(MemID,MemPass,MemTitle," & _
         "MemFirstName,MemLastName,MemAddress,  " & _
         "MemMobile,MemStatus) VALUES ('" & _
         TextBox1.Text & "','" & TextBox2.Text & "','" & _
         TextBox3.Text & "','" & TextBox4.Text & "','" & _
         TextBox5.Text & "','" & TextBox6.Text & "','" & _
         TextBox7.Text & "','U')", myconn)
        mycommand.ExecuteNonQuery()
        myconn.Close()
    End Sub