最小限のコードに編集して見ていますが、InitializeComponentにブレークポイントを 置いて見てみると、InitializeComponentを過ぎてForm1_Loadに行く瞬間に例外がスロー されています。 ----------------------------------------------------------------------------------------------------- Option Explicit On Option Strict On
Public Class Form1
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Cn.ConnectionString = CN_Server
End Sub
End Class ----------------------------------------------------------------------------------------------------- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 <System.Diagnostics.DebuggerNonUserCode()> Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub
'Windows フォーム デザイナーで必要です。 Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 'Windows フォーム デザイナーを使用して変更できます。 'コード エディターを使って変更しないでください。 <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.SuspendLayout() ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 261) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False)
End Sub
End Class ----------------------------------------------------------------------------------------------------- Option Explicit On Option Strict On
Module Module1
Public Cn As New SqlClient.SqlConnection() Public Cmd As New SqlClient.SqlCommand()
Public Const CN_Server As String = "Data Source=XXX.XXX.X.XXX;Initial Catalog=YYYYY;User ID=WWWWWW;Password=TTTTTTTT"
End Module -----------------------------------------------------------------------------------------------------