vb and oracle connection

Dim Oracon As ADODB.Connection
Dim recset As New ADODB.Recordset
Dim objErr As ADODB.Error
Dim Message, Title, Default, EmpNoValue
Dim EID As Integer, EName As String, EHeight As Integer
Dim EEmail As Strin, EWeight As Integer, EBloodType As String

i = 0
On Error GoTo err_test
Set Oracon = CreateObject("ADODB.Connection")
Oracon.ConnectionString = "Provider=OraOLEDB.Oracle;" & "Data Source=sigma;" & _
"User ID=sigma;" & "Password=sigma;" & "PLSQLRSet=1;"
Oracon.Open
Set recset = New ADODB.Recordset
recset.Open "EMPLOYEES", Oracon, adOpenDynamic, adLockOptimistic
With recset
If Not (.BOF And .EOF) Then
While Not .EOF
EID = recset.Fields("employeeid").Value
EName = recset.Fields("employeename").Value
EHeight = recset.Fields("height").Value
EEmail = recset.Fields("email").Value
EWeight = recset.Fields("weight").Value
List1.AddItem EID & " " & EName & " " & EHeight & " " & EEmail & " " & EWeight
.MoveNext
Wend
End If
recset.Close
End With
Exit Sub
err_test:
MsgBox Error$
For Each objErr In Oracon.Errors
MsgBox objErr.Description
Next
Oracon.Errors.Clear
Resume Next
End Sub