If txtID.Text.Length > 0 And txtPASS.Text.Length > 0 Then sql += " WHERE (ユーザー名 Like '" & txtID.Text & "%')" sql += " AND (パスワード Like '" & txtPASS.Text & "%')" '★ fmBase.Show() Me.Hide() Else TextBox3.Text = "ユーザー名とパスワードは必ず記入して下さい" End If