Public Function MysqlConnection()MysqlConnection ="Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=hrlink ;Data Source=IP地址"End FunctionPrivate Sub CommandButton2_Click()Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表Dim...