Dudas

Me van a perdonar que pregunte estas tonterias, pero empiezo desde cero y
no se mucho.

He creado un form1 y un module1. El programa empieza (carga) desde el sub
main. En el módulo1 he puesto:

Imports System.Data

Imports System.Data.Odbc

Module Module1

Public dbs As OdbcConnection

Sub main()

Dim formRegUsu As frmRegistroUsuario

formRegUsu = New frmRegistroUsuario

cargarBBDD()

formRegUsu.Show()

End Sub

#Region "cargarBBDD - Carga la base de datos y las tablas"

Public Sub cargarBBDD()

Try

dbs = New OdbcConnection("dsn=gestjcm;uid=root;pwd=saLu2;")

dbs.Open()

Catch ex As OdbcException

MsgBox(ex.Message, MsgBoxStyle.Critical, "Error de Conexión...")

End Try

End Sub

#End Region

End Module

Y en el form1:

Public Class frmRegistroUsuario





Private Sub tbUsuario_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tbUsuario.GotFocus

tbUsuario.BackColor = Color.Yellow

End Sub

Private Sub tbUsuario_LostFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tbUsuario.LostFocus

tbUsuario.BackColor = Color.White

End Sub

Private Sub tbClave_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tbClave.GotFocus

tbClave.BackColor = Color.Yellow

End Sub

Private Sub tbClave_LostFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tbClave.LostFocus

tbClave.BackColor = Color.White

End Sub

Private Sub frmRegistroUsuario_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Pues cuando ejecuto el programa me visualiza el form1 y se cierra la
aplicación. Alguien sabe el por qué.

Gracias