El data report cuenta con un asistente con el cual te puedes guiar para realizar la conexión.

Saludos

Module Tarea
Sub Main()
Dim i As Integer
Dim j As Integer
Dim num As Integer
Dim tabla() As Integer
Dim aux As String
Dim aux2 As String
Dim resp As String
Do
Do
Clear()
Write(“¿Cuantas Tablas de Multiplicar Desea Realizar? “)
aux = ReadLine()
Loop Until IsNumeric(aux)
num = Val(aux)
Dim top As Integer = 5
For i = 0 To num – 1
ReDim Preserve tabla(i + 1)
Do
Write(“Ingrese el numero de la Tabla a Multiplicar: “)
aux2 = ReadLine()
Loop Until IsNumeric(aux2)
tabla(i) = Val(aux2)
For j = UBound(tabla) To 10
SetCursorPosition(1, top)
WriteLine(tabla(i) & ” * ” & j & ” = ” & (tabla(i) * j))
top = top + 1
Next
Next
WriteLine(“Desea Salir de la Aplicacion? (S/N)”)
resp = ReadLine()
Loop Until resp = “s”
End
End Sub
End Module