Dim kuna As String
        Dim kunort As String
        Dim kuntel As String
 
        kuna = txtname.Text
        kunort = txtort.Text
        kuntel = txttel.Text
 
        Dim sqlstr As SqlTypes.SqlString = ("select ku_nummer , ku_name1 ," & _
          "ku_name2 , ku_ort  from kunde where ku_name1 like '%" + kuna + "%'" & _
          "and ku_tel1 like '%" + kuntel + "%' and ku_ort like '%" + kunort + _
          "%'")
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, conn)
        Dim dr As SqlDataReader = cmd.ExecuteReader
 
        If dr.Read Then
            While dr.Read = Not Nothing
                With Me.grid.Rows
                    .Add(dr(0), dr(1), dr(2), dr(3))