怎样在vb中建立公用模块（Module）?是通过ADO空间访问sql数据库，调用字符串函数cnstr，并将该函数值赋给ADO控件的“ConnectionString”属性，具体代码是什么？

怎样在vb中建立公用模块（Module）?是通过ADO空间访问sql数据库，调用字符串函数cnstr，并将该函数值赋给ADO控件的“ConnectionString”属性，具体代码是什么？

Public rs As New ADODB.Recordset
Public con As New ADODB.Connection
Public strsql As String
cnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=."

'连接过程
Public Sub linkdatabase()
Set con = New ADODB.Connection
If con.State = adStateOpen Then
con.Close
Set con = Nothing
End If
With con
.ConnectionString = cnstr

.Open
End With
End Sub