Private Sub TextBoxPostleitzahl_TextChanged(sender As System.Object, e As _
  System.EventArgs) Handles TextBoxPostleitzahl.Leave
 
        Dim sqlcmd As String = "SELECT sql_tbl_postleitzahl_id," & _
          "sql_tbl_postleitzahl_postleitzahl, sql_tbl_postleitzahl_ort FROM" & _
          "sql_tbl_postleitzahl"
 
        Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(sqlcmd, con)
 
        'Dim dataset_ort As New DataSet
 
        con.Open()
        dataadapter.Fill(DataSet)
        con.Close()
 
        dataadapter.Fill(dataset, "tbl_ort")
 
        Me.DataGridView.DataSource = dataset.Tables("tbl_ort")
 
        Me.dataset.Tables("tbl_ort").DefaultView.RowFilter = _
          "sql_tbl_postleitzahl_postleitzahl like '" & TextBoxPostleitzahl.Text _
          & "%'"
 
        'End Select
 
    End Sub

MsgBox(CStr(dataset.Tables("tbl_ort").Rows(0).Item(2)))