Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cn1 = New ADODB.Connection
'自己的连接字符串
cn1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gsm;Data Source=DPNT1"
'打开的数据
cn1.Open (location_info)
Dim sqlstr As String
'sqlstr 具体的sql语句
Set rs1 = cn1.Execute(sqlstr)