1.
Dim
conn
As
New
OleDb.OleDbConnection(
"provider=Microsoft.Jet.OLEDB.4.0;data source=database.mdb"
)
2.
Dim
commd
As
OleDb.OleDbCommand
3.
Dim
SQL1
As
String
=
"insert into tbuserlogin(username,password) values ('"
& TextBox1.Text &
"','"
& TextBox2.Text &
"' )"
4.
commd =
New
OleDb.OleDbCommand(SQL1, conn)
5.
conn.Open()
6.
commd.ExecuteNonQuery()
7.
conn.Close()