str = ""
sqlstr = "insert into 学生信息表(学号,姓名,密码,性别,组别,电话,E-mail,备注)"
sqlstr = sqlstr & "values('" & txtnumber.Text & "','" & txtname.Text & "','" & txtnumber.Text & "
','" & str & "','" & str & "
','" & str & "','" & str & "','" & str & "')"
Cmd.CommandText = sqlstr
Conn.Open()
Cmd.ExecuteNonQuery()
Conn.Close()