Dim Datenbankpfad As String = "Zeiterfassung_2.sqlite"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim Daten As New DataTable
        Dim sDaten As String = "select * from Stempelzeit where User_id=2"
 
        DGV.AutoGenerateColumns = True
        Daten = ReadDataTable01(Daten, sDaten)
        DGV.DataSource = Daten
 
        Dim CityComboColumn As New DataGridViewComboBoxColumn()
        CityComboColumn.HeaderText = "info"
        CityComboColumn.DataPropertyName = "info"
        CityComboColumn.DisplayIndex = 5
 
        Dim infos As New List(Of Object)
 
        For Each dr As DataRow In Daten.Rows
            Dim val As Object = dr("info")
            If Not infos.Contains(val) Then
                infos.Add(val)
            End If
        Next
 
        CityComboColumn.DataSource = infos
 
        DGV.Columns.RemoveAt(5)
        DGV.Columns.Add(CityComboColumn)
 
    End Sub
 
    Public Function ReadDataTable01(ByVal dt As DataTable, ByVal SelectString _
      As String) As DataTable
        Dim ConnectionString As String = "Data Source=" & Datenbankpfad & ";"
        Try
            Dim da As New SQLite.SQLiteDataAdapter(SelectString, _
              ConnectionString)
            da.Fill(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein " & _
              "Fehler aufgetreten.")
        End Try
        Return dt
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist