Tener una subrutina Main por donde comience el sistema

[jmanco]

ahi les dejo......


Imports System.Data.SqlClient
Imports System.Data

Module ConexionGlobal
Public con As New SqlConnection
Sub Main()
Try
con = New SqlConnection("Data Source=;integrated security=true;user ID=;PWD=; initial catalog=")
frmClave.Show()
Application.Run()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module


En el formulario coloquen esto.. y no voten mas escape, yo ya bote ese tiempo por todos..


Imports System.Data.SqlClient
Imports System.Data

Public Class frmActividadLaboral
Private Sub frmActividadLaboral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try

Dim objadapter As New SqlDataAdapter
Dim objds As New DataSet
Dim objcomando As SqlCommand


objcomando = New SqlCommand("SPAplicacionesConsultar", ConexionGlobal.con)
objcomando.CommandType = CommandType.StoredProcedure
objcomando.Connection.Open()

objadapter.SelectCommand = objcomando
objadapter.Fill(objds, "tblaplicaciones")

Me.dgrActividad.DataSource = objds.Tables(0)
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class