Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        'Zeichenfolgesuche in der Spalte XYZ
        Dim dt As DataTable = New DataTable("Tabelle1")
        Me.FillDataTableXYZ(dt)
 
    End Sub
 
Public Sub FillDataTableXYZ(ByRef dt As DataTable)
        'Zeichenfolgesuche in der Spalte XYZ
 
        Try
 
            Dim sCN As String = "Data" & _
              "Source=.\SQLEXPRESS;database=Datenbank2;Integrated" & _
              "Security=true;Connect Timeout=30"
            Dim sql As String = "SELECT * FROM Tabelle1 WHERE XYZ LIKE " & "'%" _
            & TextBox1.Text & "%'"
            Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(sCN)
            Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter( _
              sql, cn)
            Dim cmd As SqlClient.SqlCommandBuilder = New _
            SqlClient.SqlCommandBuilder(da)
            da.Fill(dt)
           XYZDataGridView.DataSource = dt
 
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub

XYZDataGridView.DataSource = dt