vs怎么向数据库里添加一条新记录？

<%

dim db '声明变量

set db=server.createobject("adodb.connection") '建立数据连接对象

db.open "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&server.mapPath("userinfo.mdb") '以db数据连接对象 打开同目录userinfo.mdb数据库

dim username,password,qq,Email,sql,rs '声明变量，注意变量名不能包含特殊符号，就是E-mail是不行的

username=request.form("username") '变量赋值为表单请求的值

password=request.form("password") '变量赋值为表单请求的值

qq=request.form("qq") '变量赋值为表单请求的值

Email=request.form("E-mail") '变量赋值为表单请求的值

sql="insert into userinfo (username,[password],qq,[E-mail]) values ('"&username&"','"&password&"','"&qq&"','"&Email&"')"

db.execute(sql) '直接执行sql语句

response.write "添加记录成功"

db.close '关闭数据库连接

set db=nothing '释放对象 节约内存

%>

我连得是sql数据库 验证用户名密码是否正确 先在项目新建一个类 取名userinfo在类中定义：

public static string UserID

public static string Password

代码如下：

string sqlconn = "server = 220.162.131.160,1433database = sqlworkuid = sapwd = yxlbb520520"//数据库连接

string sqlqueryy = string.Format("select 账号,密码 from xs where 账号 = '{0}' and 密码 = '{1}'", textBox1.Text, textBox2.Text)

SqlConnection conn = new SqlConnection(sqlconn)

try

{

con.Open()

SqlCommand comm = new SqlCommand(sqlqueryy, con)

SqlDataReader ds = comm.ExecuteReader()

if (ds.Read())

{

userinfo1.UserID = ds[0].ToString()

userinfo1.Password = ds[1].ToString()

xs mf = new xs()

this.Hide()

mf.ShowDialog()

}

else

{

MessageBox.Show("用户名或密码错误！！！")

}

}

catch (Exception ex)

{

MessageBox.Show(ex.Message)

}

finally

{

con.Close()

}

---