Dealing with check box!

helo guys.

I use a checkbox in the word doc.
I need to check this check box using the codes base on the databse...
but i wont worked.

can u help me to find wats the error there?

my code:

tmpRace = Trim(dsPerson.Tables(0).Rows(0).Item("cRace"))

If tmpRace = "M" Then
.Selection.GoTo(what:=x.WdGoTo.CheckBox,cb1.combobox.checkstate = True)

ElseIf tmpRace = "C" Then
.Selection.GoTo(what:=x.WdGoTo.CheckBox,cb2.combobox.checkstate = True)
ElseIf tmpRace = "I" Then
.Selection.GoTo(what:=x.WdGoTo.CheckBox,cb3.combobox.checkstate = True)
Else
.Selection.GoTo(what:=x.WdGoTo.CheckBox,cb4.combobox.checkstate = True)

End If


----------------------------------------------------------------------------------

x is a word.application and cb1 - cb4 is my check box name in the word file that vb dont recognise at all!

help me,,,, :( :(