Dim SQLResult As Object
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=c:\test.mdb"
        Dim dbConnection As OleDbConnection = New OleDbConnection(connStr)
        Dim SQL As New OleDbCommand
 
        dbConnection.Open()
        SQL.Connection = dbConnection
 
        SQL.CommandText = "SELECT COUNT([id]) FROM Tabelle " & _
                    "WHERE ([Name] is NULL)"
 
        SQL.CommandType = CommandType.Text
 
        SQLResult = SQL.ExecuteScalar
 
        MsgBox(SQLResult.ToString)

        Dim SQLResult As Object
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=c:\test.mdb"
        Dim dbConnection As OleDbConnection = New OleDbConnection(connStr)
        Dim SQL As New OleDbCommand
 
        dbConnection.Open()
        SQL.Connection = dbConnection
 
        SQL.CommandText = "SELECT COUNT([id]) FROM Tabelle " & _
                    "WHERE ([Name] = ?)"
 
        SQL.CommandType = CommandType.Text
        SQL.Parameters.AddWithValue("Name", DBNull.Value)
 
        SQLResult = SQL.ExecuteScalar
 
        MsgBox(SQLResult.ToString)