use vb code to run this script

[makumbi]

Hi members how can i use vb code to run this script

insert into testtbl(phone,address,city)
SELECT phone,address,city
FROM OPENROWSET('MSDASQL',
'DRIVER={SQL Server};SERVER=kabojja6;UID=makumbi;PWD=',
pubs.dbo.authors) AS a
ORDER BY a.au_lname, a.au_fname