Public Cn As New ADODB.Connection
Public RutaConexion As String
Public CadenaConexion As String

Public Sub Main()
RutaConexion = App.path & "\BasedeDatos.mdb"
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaConexion & ";Jet OLEDB:Database Password=XXX"

Cn.Open CadenaConexion

frmSplash.Show

End Sub

En el formulario pones lo siguiente:

' Para saber la versión del sistemna operativo
Call OSVersion
Text7.Text = "Sistema operativo: " & OSVersion

Text1.Text = "Versión " & App.Major & "." & App.Minor & "." & App.Revision

Public Function OSVersion() As String

Dim udtOSVersion As OSVERSIONINFO
Dim lMajorVersion As Long
Dim lMinorVersion As Long
Dim lPlatformID As Long
Dim sAns As String


udtOSVersion.dwOSVersionInfoSize = Len(udtOSVersion)
GetVersionEx udtOSVersion
lMajorVersion = udtOSVersion.dwMajorVersion
lMinorVersion = udtOSVersion.dwMinorVersion
lPlatformID = udtOSVersion.dwPlatformId

Select Case lMajorVersion
Case 5
sAns = "Windows 2000"
Case 4
If lPlatformID = "VER_PLATFORM_WIN32_NT" Then
sAns = "Windows NT 4.0"
Else
sAns = IIf(lMinorVersion = 0, _
"Windows 95", "Windows 98")
End If
Case 3
If lPlatformID = "VER_PLATFORM_WIN32_NT" Then
sAns = "Windows NT 3.x"

'below should only happen if person has Win32s
'installed
Else
sAns = "Windows 3.x"
End If

Case Else
sAns = "Version de Windows Desconocida"
End Select

OSVersion = sAns

End Function

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long


Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2