Lo creas en un modulo y en cada form mandas llamar a conexion rs y cmd segun lo que nesesites Tengo el codigo completo pero nesesita firebird server
eso estodo si ocupas mas me dices
Public conexion As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public Sub main()
conexion.ConnectionString = "driver={firebird/interbase(r) driver};" _
aqui pones la ip de tu servidor & "server=127.0.0.1;" _
& "database=" & App.Path & "/autobuses.fdb;" _
& "uid=sysdba;" _
& "pwd=masterkey;"
conexion.Open
rs.ActiveConnection = conexion
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
Autor