Try this, it might help
Public Function InsertData(ByVal SQLString As String) As Integer
strErrorMessage = ""
Dim objCmd As OracleCommand = New OracleCommand
Try
NoofRowsAffected = objCmd.ExecuteNonQuery
Return NoofRowsAffected
Catch ex As Exception
strErrorMessage = "Message :" & ex.Message
Return Nothing
Finally
If Not IsNothing(objCmd) Then
objCmd.Parameters.Clear()
objCmd.Dispose()
objCmd = Nothing
End If
End Function