Error In SAP VB connection

Am getting runtime error in VB . This is my VB code.

Dim sapconn, conn, conn1 As Object

Dim ok As Boolean

Private Sub Form_Load()

Set sapconn = CreateObject("SAP.BAPI.1")

Set conn = BAPI.Connection

ok = conn.logon(Me.hWnd, False)

SAP_UP

End Sub

Private Sub SAP_UP()

conn1 = BAPI.GetSAPObject("BAPI_AP_ACC_GETBALANCEDITEMS") "ERRor

End Sub

After logging to SAP am getting Error Like this

Run time error 8792.

An internal RFC error occurs

Error Kye RFC_ERROR_SYSTEM_FAILURE

Description see RFC trace file or SAP log .

Please help me.

Regards

Prajwal K.