dont know about you, but it freezes on ADOConnection1.Open() for me because it is not a valid connection to connect to. Again, dont knoe what setup you are using. If you are freezing a tthe same place, check you connection string.
Public MyPath As String = Application.StartupPath & "\webdb.mdb"
Dim ADOConnection1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyPath & ";Jet OLEDB:Database Password=" & MyPassword)
The problem is : I can't see the form nor the code is running .