My attached code works fine...
But, I've been out of VBA for a while.
When I select an Item, I want to display both columns...not just the bound one.
How do I do that?
Dim cmd1 As New ADODB.CommandDim rst1 As ADODB.Recordset'Connect to db and run stored proc based on Client IDcmd1.ActiveConnection = CurrentProject.Connectioncmd1.CommandType = adCmdStoredProccmd1.CommandText = "usp_MarketingVisitationsGet"cmd1.Parameters("@ClientID") = Me.txtClientID.Value'Set the recordsetSet rst1 = cmd1.Execute()With Me.cmbVisits .RowSourceType = "Value List" .BoundColumn = 1 .ColumnCount = 2 .ColumnWidths = ".5in;1.5in" .ColumnHeads = FalseEnd WithWith rst1 .MoveFirst Do Until .EOF cmbVisits.AddItem !id & ";" & !visitStatus .MoveNext LoopEnd With
Perhaps expand your combo width to see what happens.