如果用VB直接查询后调用oracle数据库？

如果用VB直接查询后调用oracle数据库？求救大神
比如我输入一个值后，数据库会得到另一个值，我怎么连接数据库并调用这个值？谢谢
数据库已经有了，里面也有表格，我这边有个接口输入字段DH,返回值为BM，可以通过VB调用，不用他这个接口实现吗？谢谢
数据库地址：192.168.1.101
数据库类型：orcl
用户名： DZHT
密码：DZHT
数据表： partdic
输入的代号字段：dh （自动获取VB中的代号值）
生成的编码字段：bm
下面是SolidWorks里面的宏文件：
'定义SolidWorks
Dim strmat As String
Dim a() As String
Dim b As Integer
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g() As String
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim tempvalue As String
Dim part As Object
Dim Part1 As Object
Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim swConfig As SldWorks.Configuration
Dim CustPropMgr As SldWorks.CustomPropertyManager
Dim swModel As SldWorks.ModelDoc2
Sub main()
Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set part = swApp.ActiveDoc
Set SelMgr = part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
Set swModelDoc = swApp.ActiveDoc
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
Set swModel = swApp.ActiveDoc
S