populate comboboxlist to datagrid table using ADO code

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