我用VB做学生成绩管理系统，为什么在一开始设计代码时我想把数据库引入到VB里，但我输完代码后报错我输的代码是

Public ADOcn As Connection



Public Sub Main()
  
  Dim strsql As String
  
  strsql = "provider=SQLOLEDB;server=localhost;database=成绩;UID=mytext;PWD=1234"
  If ADOcn Is Nothing Then
    Set ADOcn = New Connection
    ADOcn.Open strsql
  End If
  strMain.Show
End Sub
运行后提示

实时错误 ’-2147467259(80004005)’;
[DENEBLIB][connectionopen (connect())/]SQL server不存在或拒绝访问

这段话是什么意思，请高手解答