Sub Main para Visual Basic 6.0

Sub Main()
    With Cone
        .CursorLocation = adUseClient
        .Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MEDINA;Data Source=MEDINADIAZ1\sqlexpress" (se debe recordar que esta linea de instrucciones se genera en el objeto adodc1 en el boton izquierdo del mouse, propiedades claro debe tener ubicado y abierta la base de datos bien se a en access o sql server)
        Form1.Show
   
    End With
End Sub

se crean modulos para la funciona main