vb 连接SQL 数据库模块

'数据连接模块
Public Name1 As String
Public PublicStr As String
Public AdoRs As New ADODB.Recordset '后添加一个记录集对象
Public AdoRs1 As New ADODB.Recordset '后添加一个记录集对象
Public AdoRs2 As New ADODB.Recordset '后添加一个记录集对象
Public CompturName As String '获取的计算机名称
Public ReadCompturName As String '读取的计算机名称
Public TempNum As Integer

Public Function Cnn() As ADODB.Connection '定义连接字符串函数
On Error GoTo x
Set Cnn = New ADODB.Connection
If Trim(ReadCompturName) = Trim(CompturName) Then
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=my_you"
Else
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=my_you;Data Source = '" & ReadCompturName & "'"
End If
Exit Function
x:
If Err.Number = 8