How to override NULL value returned by a SQL command?

Dim amnt As integer
        Using cn As New OleDb.OleDbConnection _
  (db_path)
            cn.Open()
            Dim cmd As New OleDb.OleDbCommand("Select * FROM cards WHERE ID = """ & p_ID & """", cn)
            amnt = cmd.ExecuteScalar()
        End Using
        If amnt = 0 Then
            Exit Sub
        Else
 
            Dim myConn As sqlConn = New sqlConn()
            myConn.KonektujBazu("Delete From cards WHERE ID = """ & p_ID & """")
            myConn.OLEComm.Connection = myConn.OLEConn
            myConn.OLEComm.ExecuteNonQuery()
            myConn.OLEConn.Close()
 
        end if
    End Sub