' txtIDCustomer.Text dient zum eintragen einer ID, die dann aus der SQL 
        ' Tabelle ausgelesen wird.
        oCustomer.IDCustomer = txtIDCustomer.Text
        dgCustomer.DataSource = oCustomer.GetCustomer(oCustomer.IDCustomer)

        Public Function GetCustomer(ByRef IDCustomer) As DataRow
            Return dac.GetCustomer(IDCustomer)
        End Function

        Public Function GetCustomer(ByVal IDCustomer As Long) As DataRow
            Dim oAdapter As SqlClient.SqlDataAdapter = New _
              SqlClient.SqlDataAdapter
            Dim oDataSet As DataSet = New DataSet
 
            oAdapter.SelectCommand = New SqlCommand
            oAdapter.SelectCommand.Connection = Connection
            oAdapter.SelectCommand.Parameters.Add("@IDCustomer", IDCustomer)
            oAdapter.SelectCommand.CommandText = "spCustomer_GetCustomer"
            oAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
            oAdapter.Fill(oDataSet)
 
            Return oDataSet.Tables(0).Rows(0)
 
        End Function