Making a DNS query in VB?

[Guest_imported]

I am trying to write a VB program which can query a DNS, but can't find any info or examples on the internet. Has anyone done this or knows how to do it and can help me out?

I have found a website which gives an online VBscript demo of a DNS query program at:

http://www.hexillion.com/utilities/NsLookup.vbs.asp

You have to pay to download the full source code, and I need it in VB, not VBscript, so its not that useful but is a perfect example of what I want to be able to do in my program.

Could it be done using the Winsock control, or should I use something else? Any help would be greatly appreciated!

 

[JFoushee]

Go to Project, References..., and select "Microsoft ActiveX Data Objects" (one of them).

Use this partial code:

Dim cnDSN As New ADODB.Connection
Dim rsDSNQuery As ADODB.Recordset
With cnDSN
  .ConnectionString = "DSN=myDSNname;User ID=myUID;Password=myPWD"
  .Open
End With

Set rsDSNQuery = cnDSN.Execute("SELECT * FROM table1")

Do While Not rsDSNQuery.EOF
  Debug.Print rsDSNQuery![field]
  rsDSNQuery.MoveNext
Loop