如下:
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = "DSN=slfc;UID=;PWD=;"
cnn.open
If cnn.State = adStateOpen Then
MsgBox "successful!!!"
End If
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = "DSN=slfc;UID=;PWD=;"
cnn.open
If cnn.State = adStateOpen Then
MsgBox "successful!!!"
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货