The text in a msflexgrid cell is cut off

[Johnny23]

but never used one before
here is my code
my SQL 7 database opens up but i dont know how to get the query result to show in my control please help me!!!
thanks john

Private Sub Command1_Click()

Dim dyna As Recordset
Dim theError As Long
Dim theid As Long


theid = txtCandidateID
SQL = "Select * from candidate  where candidateID = " & theid & "'"
On Local Error Resume Next

Set dyna = db.OpenRecordset(SQL, dbOpenDynaset, dbSQLPassThrough + dbSeeChanges)
theError = Err
On Local Error GoTo 0