I would like to write these codes in VB

1 – open a VFP table (independent table and table in a database)
if not used(“mytable”)
use mytable in 0
endif
select mytable

2 – search a record in a table
locate for xfield=xvar
if found()
endif

3 – Write in a table
replace xfield with xvar

4 – name of the computer
xmac=alltr(sys(0))
xmac=upper(alltr(substr(xmac,1,at('#',xmac)-1)))

5 – create a table or cursor
CREATE CURSOR csResult (field1 I)
CREATE table csResult (field1 I)

6 – scan a table
select mytable
scan
endscan

7 – does a file exist
if file(“c:\myfile.dbf”)
endif