If connTest() = True Then
                    Dim odbcverbindung As New OdbcConnection
                    Dim sConnString As String = "Dsn=IBWDSOFT_TW.GDB;"
                    odbcverbindung = New Odbc.OdbcConnection(sConnString)
 
                    ' SelectCommand erstellen welches die "Select-Abfrage" 
                    ' gegen die
                    ' Datenbank beinhaltet
                    Dim myOdbcbSelectCommand As New Odbc.OdbcCommand
                    myOdbcbSelectCommand.Connection = odbcverbindung
                    myOdbcbSelectCommand.CommandText = "select LK.LKARTNR," & _
                      "AR.AANZBREIT, AK.AALCU, AK.AAKLEINSTDM, LK.LKGRUPPE from" & _
                      "WDLAUFKA LK inner join WDARTIKEL AR on (" & _
                      "AR.AARTNR=LK.LKARTNR)inner join WDARTTECHNIK AK on (" & _
                      "AK.AARTNR=LK.LKARTNR)WHERE LK.LKNR=" & tbLfknr.Text
 
                    ' DataAdapter mit dem SelectCommand verbinden
                    Dim myOdbcDbDataAdapter As New Odbc.OdbcDataAdapter
                    myOdbcDbDataAdapter.SelectCommand = myOdbcbSelectCommand
 
                    ' und mit dem DataAdapter das DataSet füllen
                    Dim dtInterBase As DataTable = New DataTable()
                    myOdbcDbDataAdapter.FillSchema(dtInterBase, _
                      SchemaType.Source)
                    myOdbcDbDataAdapter.Fill(dtInterBase)
 
                    odbcverbindung.Close()
                    If dtInterBase.Rows.Count <> 0 Then
                        tbArtnr.Text = dtInterBase.Rows(0).Item(0)
                        tbArtnr.Text = tbArtnr.Text.Substring(1, 5)
 
                        tbNutzenbreite.Text = dtInterBase.Rows(0).Item(1)
                        tbNutzenbreite.Text = tbNutzenbreite.Text.Substring(0, _
                          3)
 
                        tbKupferdicke.Text = dtInterBase.Rows(0).Item(2)
 
                        tbKlBohr.Text = dtInterBase.Rows(0).Item(3)
                        tbKlBohr.Text = tbKlBohr.Text.Replace(",", Nothing)
                        tbKlBohr.Text = tbKlBohr.Text & "0"
 
                        If dtInterBase.Rows(0).Item(4) = "ML" Then
                            cbML.Checked = True
                        Else
                            cbML.Checked = False
                        End If
                        tsslbInfo.ForeColor = Color.Black
                        tsslbInfo.Text = Nothing
                        tspbFooter.Value = 75
                        tbAnzahl.SelectAll()
                        tbAnzahl.Focus()
                    Else
                        tsslbInfo.ForeColor = Color.Black
                        tsslbInfo.Text = Nothing
                        tspbFooter.Value = 15
                        tbArtnr.SelectAll()
                        tbArtnr.Focus()
                    End If
                    dtInterBase.Clear()
                    myOdbcDbDataAdapter.Dispose()
                Else
                    MsgBox("Fehler: ODBC Dsn=IBWDSOFT_TW.GDB nicht vorhanden")
                End If
 
            End If
 
 
 
################
 
Private Function connTest() As Boolean
        Dim rc As Boolean = True
 
        Dim odbcverbindung As New System.Data.Odbc.OdbcConnection
        Dim sConnString As String = "Dsn=IBWDSOFT_TW.GDB;"
        odbcverbindung = New Odbc.OdbcConnection(sConnString)
 
        Try
            odbcverbindung.Open()
        Catch ex As Exception
            rc = False
        Finally
            If (odbcverbindung.State = ConnectionState.Open) Then _
              odbcverbindung.Close()
        End Try
 
        Return rc
    End Function