Private Function GetLastID() As Integer
        Try
            m_cmd.CommandText = "SELECT @@identity"
 
            Dim i As Integer
            If Integer.TryParse(m_cmd.ExecuteScalar().ToString, i) Then
                Return i
            Else
                Return 0
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "MyXClasses.Command.GetLastID")
            Throw ex
        Finally
            m_cmd.CommandText = ""
        End Try
    End Function

    Public Function SELECTString(ByVal SQLString As String) As String
        Try
            m_cmd.CommandText = SQLString
 
            Dim retVal As Object
            retVal = m_cmd.ExecuteScalar
 
            If TypeOf retVal Is System.DBNull Then
                Return ""
            Else
                Return CType(retVal, String)
            End If
        Catch ex As System.Exception
            cIO.File.WriteLine("C:\Protokoll.txt", SQLString & _
              System.Environment.NewLine & ex.ToString)
            Throw ex
        Finally
 
        End Try
    End Function
 
    Public Function SELECTString(ByVal TableName As String, ByVal FieldName As _
      String, ByVal WHEREString As String) As String
        Return SELECTString("SELECT " & FieldName & " FROM " & TableName & "" & _
        "WHERE " & WHEREString)
    End Function

    Public Function SELECTMax(ByVal TableName As String, ByVal FieldName As _
      String, Optional ByVal WHEREString As String = "") As Double
        Dim SQLString As String = ""
        Try
            SQLString = _
            "SELECT CASE WHEN MAX(" & FieldName & ") IS NULL THEN 0 ELSE MAX(" _
            & FieldName & ") END FROM " & TableName & "" & _
            IIf(WHEREString.Equals(""), "", " WHERE " & WHEREString).ToString
 
            m_cmd.CommandText = SQLString
 
            Return CType(m_cmd.ExecuteScalar(), Double)
 
        Catch ex As System.Exception
            cIO.File.WriteLine("C:\Protokoll.txt", SQLString & _
              System.Environment.NewLine & ex.ToString)
            Throw ex
        End Try
    End Function