This is my code:
Dim WithEvents rsArea As Recordset
Dim WithEvents rsShowDB As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub cboArea_Click()
Dim strFilter_A As String
strFilter_A = (“select * from Name”)
Set grdDShow.DataSource = strFilter_A(cboArea.ListIndex)
End Sub
Private Sub cboArea_GotFocus()
Me.cboArea.Clear
With rsArea
.Sort = “Name”
.MoveFirst
While Not .EOF
Me.cboArea.AddItem StrConv(!Name, vbUpperCase)
.MoveNext
Wend
End With
DoEvents
End Sub
Private Sub Form_Load()
Dim dbArea As Connection
Set dbArea = New Connection
dbArea.CursorLocation = adUseClient
dbArea.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\PPSDS\mdb\TDS0000.mdb;”
Set rsArea = New Recordset
rsArea.Open “select Name from PPSArea”, dbArea, adOpenStatic, adLockOptimistic
With rsArea
If Not rsArea.State = adStateOpen Then
rsArea.Open
End If
End With
Set cboArea.DataSource = rsArea
Set rsShowDB = New Recordset
rsShowDB.Open “Select ShowDate,BraCode,PwnPcs,PwnAmt,RdmPcs,RdmAmt,COH,” _
& “RemPcs,RemAmt,AckPcs,AckAmt,UncPcs,UncAmt,WesRemPcs,WesRemAmt,” _
& “WesRelPcs,WesRelAmt,MonAmt,MonPcs,BnkBal from Show_DB Order by BraCode”, _
dbArea, adOpenStatic, adLockOptimistic
Set grdDShow.DataSource = rsShowDB
grdDShow.Columns(“ShowDate”).Visible = False