Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
 
With cn
  .CursorLocation = ADODB.CursorLocationEnum.adUseClient
  .Mode = ADODB.ConnectModeEnum.adModeShareDenyNone
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source").Value = _
    "O:\Vka-K\DATEN\FEHLERERFASSUNG\Fehlererfassung.mdb"
  .Open()
End With
 
Rs = cn.Execute("SELECT * FROM Eingaben WHERE Fehlerberichtnummer='" & FBNummer _
  & "'")
 
Dim ar(Rs.Fields.Count, 0) As Object
 
Rs.MoveFirst() 'Hier steigt er aus
 
ar = Rs.GetRows(-1)
 
For x = 0 To Rs.Fields.Count - 1
  If ar(x, 0) Is System.DBNull.Value Then
      ar(x, 0) = ""
   End If
Next
 
.......