Dim objOdbcConnection As OdbcConnection
        Dim objOdbcCmd As OdbcCommand
        Dim sConnectionString As String = _
                "Driver={Microsoft ODBC for Oracle};" & _
                "Server=" + sDatabase + ";" & _
                "Uid=" + sDatabaseUser + ";" & _
                "Pwd=" + sDatabasePasswd + ";"
 
        objOdbcConnection = New OdbcConnection(sConnectionString)
 
        Try
 
            objOdbcConnection.Open()
 
            objOdbcCmd = objOdbcConnection.CreateCommand
            objOdbcCmd.CommandText = sDbQuery
            Dim dbReader As OdbcDataReader = objOdbcCmd.ExecuteReader()
 
            Try
 
                'Hier sollte das Ergbnis an das Datagrid weiter gegeben werden.
 
 
            Catch ex As Exception
 
                MsgBox("FEHLER")
 
            End Try
 
 
 
        Catch ex As Exception
 
            MsgBox("Verbindung fehlgeschlagen")
            Exit Sub
 
        Finally
 
            objOdbcConnection.Close()
            MsgBox("Verbindung geschlossen.")
 
        End Try