求一个VB如何向SQL录入数据实例
											各位大侠,求下个VB向SQL录入的实例自己弄了半天没弄出来,只有通过实例来学习了
提示:我的是VB6精简版,SQL SERVER2005
WIN7 32位
先谢过了
 程序代码:
程序代码:
Dim cnn As New ADODB.Connection, RS As New ADODB.Recordset
cnn.ConnectionString = "provider=SQLOlEDB.1;persist security info=false;data source=服务器名称或服务器的IP地址;user id=sa;Password=sa用户的登录密码;initial catalog =数据库名称"    '连接SQL 2005 数据库语句
cnn.Open    '打开数据库连接
SQLM = "Select * From 需要录入的数据表名称"
RS.Open SQLM, cnn, 3, 2
    RS.AddNew
        RS!字段1 = Text1.Text
        RS!字段2 = Text2.Text
        '.......................
        RS!字段n = Textn.Text
    RS.Update
  RS.Close
  cnn.Close
