-----------ak programado en modulo ------
Imports System.Data.SqlClient
Module Module2
Dim cnn As New SqlConnection("data source=(local);integrated security=true ;database=clinica")
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Function guardarusu(ByVal co As String, ByVal no As String, ByVal ape As String, ByVal direc As String, ByVal fechaen As DateTime, ByVal fechacita As DateTime, ByVal hist As String, ByVal pago As Integer, ByVal area As String, ByVal doct As String, ByVal tele As Integer, ByVal hora As DateTime) As DataTable
ds.Clear()
Try
da.SelectCommand = New SqlCommand("ps_nuevousuario1", cnn)
da.SelectCommand.CommandType = CommandType.StoredProcedure
With da.SelectCommand.Parameters
.Add(New SqlParameter("cod_usuario", co))
.Add(New SqlParameter("Nombre", no))
.Add(New SqlParameter("Apellidos", ape))
.Add(New SqlParameter("Direccion", direc))
.Add(New SqlParameter("FechaEntrada", fechaen))
.Add(New SqlParameter("Fechacita", fechacita))
.Add(New SqlParameter("Cuentahisto", hist))
.Add(New SqlParameter("Pago", pago))
.Add(New SqlParameter("Area", area))
.Add(New SqlParameter("DoctorTumo", doct))
.Add(New SqlParameter("telefono", tele))
.Add(New SqlParameter("horacita", hora))
End With
Catch EX As SqlException
MessageBox.Show("ERROR EN LA BASE DE DATOS")
End Try
da.Fill(ds, "usuariocita")---aca me sale el error : Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.
Return ds.Tables("usuariocita")
End Function
End Module