Public Shared Function CreateDataBase(ByVal path As String) As Boolean
 
        path = path & "Daten.mdb"
 
        Dim CSB As New OleDbConnectionStringBuilder
        CSB.Add("Provider", "Microsoft.jet.OLEDB.4.0")
        CSB.Add("Jet OLEDB:Engine Type", 5)
        CSB.Add("Data Source", path)
 
        Dim Cat As Catalog = New Catalog
        Try
            Dim C As ADODB.Connection = DirectCast(Cat.Create( _
              CSB.ConnectionString), ADODB.Connection)
 
 
            C.Close()
 
        Catch ex As Exception
            MsgBox _
            (ex.Message, _
            MsgBoxStyle.Exclamation)
 
        End Try
    End Function

MFG
Sebastian
______________________________________________________________________________
______________________________________________________________________________

Die erfolgreichste Schleife:
.
.
...do until success...