I have figured it out, without using ODBC. I have a VB6 Form with a command button on it:

Private Sub Command1_Click()
Dim oFox As Object
Set oFox = CreateObject("VisualFoxPro.Application")
ChDrive ("f:\")
ChDir ("f:\_test database\")
oFox.DoCmd "set library to 'f:\_test database\c40fox70.fll' additive"
oFox.DoCmd "x = CRYPTOR('Bmtpat.dbf','david', 0, 8)"
oFox.DoCmd "x = CRYPTOR('Bmtpat.cdx','david', 0, 8)"
oFox.DoCmd "x = CRYPTOR('Bmtpat.fpt','david', 0, 8)"
oFox.DoCmd "USE 'f:\_test database\Bmtpat.dbf'"
oFox.DoCmd "SELECT * from Bmtpat into cursor bmt"
oFox.DataToClip "bmt", , 3
End
End Sub

This puts the contents of my Bmtpat table into the clipboard.

David Reeves.

"I poured Spot remover on my dog. Now he's gone."
"What happens if you get scared half to death twice?"
"Eagles may soar, but weasels don't get sucked into jet engines."
"If a mime is arrested do they tell him he has the right to talk?"