¿Cómo adjuntar una base de datos SQL en el módulo VB public ****? ¿Cómo escribir código?

Privado como nuevo ADODB.Connection

Privado como nuevo ADODB.Recordset

Público como cadena

Dim str As String

Public Sub main() 'Función principal

'Adjuntar base de datos

En caso de error Reanudar siguiente

con.Password =123456; Persist Security Info=True; ID de usuario=sa" 'Conectarse a la base de datos

con.Open 'Abrir la base de datos

Establecer rs = Nuevo ADODB.Recordset 'Instancia rs

'Comenzar a adjuntar la base de datos

str = "EXEC sp_attach_db @dbname = N'yustin', @filename1 = N'" App.Path "..." "\. DataSource\yustin_Data.MDF" "', @filename2 = N'" App.Path "\DataSource\yustin_Log.LDF" "'"

Establecer rs = con.Execute(str)

con.Close

'Asigne la cadena de conexión de la base de datos a la variable pública *** publicstr

publicstr = " Provider=SQLOLEDB.1Password=123456；Persist Security Info= True; ID de usuario=sa; Catálogo inicial=yustin"

frmLogin.Show

End Sub

Función pública cnn() As ADODB.Connection '** * Disfrute conexión de base de datos

Establecer cnn = New ADODB.Connection 'Crear una instancia del objeto cnn

cnn.Open "Provider=SQLOLEDB.1; Contraseña=123456; Pers.Password=123456; Persist.Security Información=Verdadero;ID de usuario=sa;Catálogo inicial=yustin;Fuente de datos=.".

Función final