登录窗体Form1：I mports System.Data Imports System.Data.SqlClient Public Class Form1 Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim myconn As New SqlConnection("UID=sa;password=sa;database=图书管理系统;server=(Local)") Dim str1 As String