use txtGroup.AutoCompleteSource.AddRange() like so:
Dim result = From o In Item.AsEnumerable() Select o.Field(Of String)("columnname")
Dim values() As String = result.ToArray()
txtGroup.AutoCompleteSource = AutoCompleteSource.CustomSource
txtGroup.AutoCompleteCustomSource.addrange(values)
Hope that helps,
Ray