Iserta datos pero con error, gracias de atemano

[ghosthelll]

Hola a todos, tengo un problema, no estoy muy profundizado con el tema asi que no logre encontrar una solucion a este problema, por favor me gustaria que me ayudaran cuanto antes:

se trata de insertar datos a una base de datos ( sql server ) desde visual.net 2005 , mediente un procedimiento almacenado creado en la base de datos.

el procediemto alacenado es el siguiente : (en sql )

CREATE PROCEDURE sp_llenardatos @codigo varchar (10), @nombre varchar (20), @estado varchar (10)
As
insert into empleados (codigo,nombre,estado) values (@codigo, @nombre, @estado)


en visual tenemos :

en el form tenemos

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cad As String

Dim codigo, nombre, estado As String
Dim DT As New DataTable
codigo = TextBox1.Text
nombre = TextBox2.Text
estado = Me.TextBox3.Text

cad = "execute sp_llenardatos '" + UCase(codigo) + "','" + nombre + "','" + estado + "' "
DT = RunSql(cad)
conex.Close()
End Sub


y por ultimo la coneccion que esta en un modulo, HE AKI EL pROBLEMA:

Imports System.Data
Imports System.Data.SqlClient

Module Module1
Public conex As New SqlConnection("Data Source=CIRO\SQLEXPRESS;Integrated security = true;database=BDCIRO")
Public Function RunSql(ByVal sql As String) As DataTable
Dim DA As New SqlDataAdapter(sql, conex)
Dim DS As New DataSet
DA.Fill(DS)
Return DS.Tables(0)
DA.Dispose()
End Function
End Module


EL PROBLEMA ESTA EN

Return DS.Tables(0)

el problema es asi , dice que no se puede encontar la tabla 0
el error cierra el visual por completo

GRACIAS DE ANTEMANO.