Form Splash

Eu estou fazendo um programa onde tem um form Splash que abre quando você executa o programa que nem o office XP

mais eu queria q quando ele fosse iniciado carregasse o banco de dados tambem mais deu erro no meu...

coloquei um time e coloque toda a codificação dentro do time:

CODE
Private Sub Timer1_Timer()
On Error GoTo errConexao

cnnCozi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _

"Data Source=" & App.Path & "\Cozinha.mdb;"

cnnCozi.Open

Unload Me

frmCoz.Show

Exit Sub

errConexao:

With Err

If .Number <> 0 Then

MsgBox "Houve um erro na conexão com o banco de dados." & _

vbCrLf & "O sistema será encerrado.", _

vbCritical + vbOKOnly + vbApplicationModal, _

"Erro na conexão"

.Number = 0

Set cnnCozi = Nothing

End

End If

End With

End Sub

e no meu modulo esta assim Oo:

CODE
Public cnnCozi As New ADODB.Connection

me ajudem por favor