selStr = "SELECT ....usw"
Dim cmd As New Data.OleDb.OleDbCommand(selStr, conn)
 
Dim ergebnis As String
 
Try
   conn.Open()
   ergebnis = cmd.ExecuteScalar().ToString()
Catch ex As Exception
    MsgBox(ex.ToString)
End Try
 
conn.Close()