Visual Basic - Un pequeño problemita

Bueno saben tengo un pequeño problemita, en realida cada cierto suele suceder y lo peor no se pq' :'(, tengo un diccionario estilo encarta, sale una lista de las palabras a buscar y cuando ago clic en una me sale un error que falta un objeto, alguna ayuda?

Private Sub lista_Click()
StrRST2 = "SELECT * From Nativo WHERE palabra='" & Trim(Me.lista.SelectedItem.Text) & "'"
txtPregunta.Text = StrRST2
Rst3.Open StrRST2, cnn1, adOpenKeyset, adLockOptimistic
If Rst3.RecordCount > 0 Then
txtRespuesta.Text = Rst3!Significado
End If
End Sub