Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim rstest As ADODB.Recordset Dim SQLrs As String Dim cn As ADODB.Connection Dim strtest As String SQLrs = "SELECT tblProductNames.ID, tblProductNames.FName FROM tblProductNames WHERE (((tblProductNames.ID)=3));" strtest = "DSN=Berry_DatSQL;Integrated Security=True" cn = New ADODB.Connection cn.CursorLocation = CursorLocationEnum.adUseClient cn.Open(OdbcConnection1.ConnectionString, "", "", -1) rstest = New ADODB.Recordset rstest.Open(SQLrs, OdbcConnection1.ConnectionString, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic, 1) With rstest .MoveFirst() txtProduct.Text = rstest.Fields.Item(2).Value End With rstest.Close() rstest = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.