Try
            Dim rs As cSQLRecordset
            Dim sSql As String
 
            sSql = "select Terminals_ID, Name from Terminals"
            rs = CCDB.OpenSQLRecordset(sSql)
            rs.Read()
 
            If rs.RecordCount > 0 Then
 
            Else
                MsgBox("Kein Terminal definiert!")
                Me.Close()
            End If
        Catch ex As Exception
            MsgBox("frmTerminalAuswahl_Load" & vbCrLf & ex.Message.ToString)
        End Try