Dim cn As OleDbConnection = Nothing
Dim cm As OleDbCommand = Nothing
Dim str As String = ""
cn = New OleDbConnection(connectionstring)
str = "insert into user_(user_name,tpassword,s1,s11,s12,s13) values (@user_name,@tpassword,@s1,@s11,@s12,@s13)"
cm = New OleDbCommand(str, cn)
cm.Parameters.Add(New OleDbParameter("@user_name", TextBox1.Text))
cm.Parameters.Add(New OleDbParameter("@tpassword", TextBox2.Text))
cm.Parameters.Add(New OleDbParameter("@s1", TreeView1.Nodes(0).Checked))
cm.Parameters.Add(New OleDbParameter("@s11", TreeView1.Nodes(0).Nodes(0).Checked))
cm.Parameters.Add(New OleDbParameter("@s12", TreeView1.Nodes(0).Nodes(1).Checked))
cm.Parameters.Add(New OleDbParameter("@s13", TreeView1.Nodes(0).Nodes(2).Checked))
cn.Open()
Try
cm.ExecuteNonQuery()
MsgBox("saved")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try