Public Sub FillDatGrid(dataBasePath As String, strSQL As String, datGridIndex _
  As Integer)
On Error GoTo FehlerBehandlung
Dim x As Integer
Set Cn = New ADODB.Connection
 
With Cn
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = dataBasePath
    .Open
End With
 
Set RecSet = New ADODB.Recordset
With RecSet
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = strSQL
    .Open
End With
 
Set frmMain.datGrid(datGridIndex).DataSource = RecSet
'For X = 0 To frmMain.datGrid(datGridIndex).Columns.Count - 1
'With frmMain.datGrid(datGridIndex)
'    If .Columns(X).NumberFormat <> "" Then
'        Debug.Print X & " ist nicht Text!"
'    Else
'        ' normaler Text / sonstige Datentypen
'        Debug.Print X & " ist Text!"
'    End If
'End With
    'Debug.Print frmMain.datGrid(datGridIndex).Columns(X).NumberFormat
'Next X
 
Set Cn = Nothing
Set RecSet = Nothing
 
FehlerBehandlung:
Select Case Err.Number
    Case Is = 0
        'DoNothing
    Case Else
        MsgBox "Es ist ein Fehler aufgetreten!" & vbCrLf & vbCrLf & _
          "Fehlernummer: " & Err.Number & vbCrLf & "Fehlerbeschreibung: " & _
          Err.Description, vbCritical + vbApplicationModal + vbOKOnly, _
          "HellDatCon - Fehler"
        Err.Clear
        Resume Next
End Select