Public Class FrmSearchDialog
    Private Sub FrmSearchDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim db As New clsDB
        db.Get_Tabledata("Patienten", "", "select NrPrivat as Nr, Name, Vorname, Strasse, PLZ, Ort from privat order by Name, Vorname, plz")
        Me.c1daten.DataSource = db.dsDaten.Tables(0)
        Me.c1daten.DataMember = db.dsDaten.Tables(0).TableName
        For i = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
            Me.c1daten.Splits(0).DisplayColumns(i).AutoSize()
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
        If Me.TextBox1.Text <> "" Then
            Me.TextBox1.Text = Me.TextBox1.Text + ","
        End If
        Me.TextBox1.Text = Me.TextBox1.Text + c1daten.Columns(0).Value.ToString
    End Sub

    Private Sub c1daten_Click(sender As Object, e As EventArgs) Handles c1daten.Click

    End Sub

    Private Sub AuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswählenToolStripMenuItem.Click
        c1daten_DoubleClick(sender, e)
    End Sub

    Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
        Try
            c1daten.Bookmark = c1daten.RowContaining(e.Y)
        Catch
        End Try

    End Sub
End Class